home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Utilities Experience
/
The Utilities Experience - Volume 1.iso
/
software
/
workbench+shell
/
a-f
/
browser
/
s
/
lharcdir_p.c
< prev
next >
Wrap
AmigaDOS Script File
|
1994-10-18
|
458b
|
29 lines
.key Dir/A,Destination,Pat/K
.bra {
.ket }
.def Pat="#?"
Set CurrentDir `CD`
IF "{Destination}" EQ ""
Set Dest $CurrentDir
Else
Set Dest {Destination}
EndIf
CD "{Dir}"
CD /
Set ArcDir `BaseName "{Dir}"`
Set ArcPathName "`TackOn "$Dest" "$ArcDir"`"
Lha -a -r -x a "$ArcPathName" "$ArcDir/{Pat}"
IF $RC GT 0
Echo "Error during compression of {Dir}."
Ask "Press RETURN..."
EndIf
CD $CurrentDir
UnSet Dest
UnSet ArcDir
UnSet ArcPathName
UnSet CurrentDir